home *** CD-ROM | disk | FTP | other *** search
/ Software Vault: The Gold Collection / Software Vault - The Gold Collection (American Databankers) (1993).ISO / cdr49 / 273_01.zip / GETAKEY.CC < prev    next >
Text File  |  1993-04-04  |  343b  |  15 lines
  1. get_akey(char *ch, char *list)
  2. /* Wait until one of the charaacters in the list is pressed. ch will be set
  3.    to the upper case value of the key pressed.
  4. */
  5. {
  6.         char scan;
  7.         strupr(list);
  8.         while(1) {
  9.             get_ca(ch,&scan);
  10.             if(*ch=='\x00') continue;
  11.             *ch=toupper(*ch);
  12.             if(strchr(list,*ch)) return;
  13.         }
  14. }
  15.